From: martin rudalics <rudalics@gmx.at>
Date: Wed, 17 Aug 2011 06:50:31 +0000 (+0200)
Subject: In display-buffer-pop-up-frame make frame with buffer to display current.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2567
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=242ab83ff50eb9407b2a0f888aed33280b7a1a5f;p=emacs.git

In display-buffer-pop-up-frame make frame with buffer to display current.

* window.el (display-buffer-pop-up-frame): Run frame creation
function with BUFFER current (as special-display-popup-frame
does).  Reported by Drew Adams.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 748ca1ee7e2..e0ed587228f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-08-17  Martin Rudalics  <rudalics@gmx.at>
+
+	* window.el (display-buffer-pop-up-frame): Run frame creation
+	function with BUFFER current (as special-display-popup-frame
+	does).  Reported by Drew Adams.
+
 2011-08-17  Daiki Ueno  <ueno@unixuser.org>
 
 	* epa-mail.el: Simplify GnuPG group expansion using
diff --git a/lisp/window.el b/lisp/window.el
index 7e666af6abf..eca3dcb435d 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -5087,9 +5087,10 @@ documentation of `display-buffer-alist' for a description."
 	    (when (symbolp function)
 	      (cdr (assq 'pop-up-frame-alist specifiers))))
 	   (frame
-	    (if (symbolp function)
-		(funcall function parameters)
-	      (funcall function))))
+	    (with-current-buffer buffer
+	      (if (symbolp function)
+		  (funcall function parameters)
+		(funcall function)))))
       (when frame
 	(let ((window (frame-selected-window frame)))
 	  (set-window-parameter